home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Applications / Python 1.3.3 / Python 133 SRC / Mac / Modules / macfs / nfullpath.c < prev    next >
Text File  |  1995-02-21  |  1KB  |  76 lines
  1. /* GET FULL PATHNAME OF A FILE.
  2. ** Original by Guido, modified by Jack to handle FSSpecs 
  3. */
  4.  
  5. #include <string.h>
  6.  
  7. #include <Files.h>
  8.  
  9. #include "nfullpath.h"
  10.  
  11. /* Mac file system parameters */
  12. #define MAXPATH 256    /* Max path name length+1 */
  13. #define SEP ':'        /* Separator in path names */
  14.  
  15. /* Macro to find out whether we can do HFS-only calls: */
  16. #define FSFCBLen (* (short *) 0x3f6)
  17. #define hfsrunning() (FSFCBLen > 0)
  18.  
  19. int
  20. nfullpath(fsp, retbuf)
  21.     FSSpec *fsp;
  22.     char *retbuf;
  23. {
  24.     union {
  25.         HFileInfo f;
  26.         DirInfo d;
  27.         WDPBRec w;
  28.         VolumeParam v;
  29.     } pb;
  30.     char cwd[2*MAXPATH];
  31.     unsigned char namebuf[MAXPATH];
  32.     short err;
  33.     int dir;
  34.     long dirid;
  35.     char *next = cwd + sizeof cwd - 1;
  36.     int len;
  37.     int need_sep = 1;
  38.     
  39.     if (!hfsrunning())
  40.         return -1;
  41.     
  42.     dir = fsp->vRefNum;
  43.     dirid = fsp->parID;
  44.     /* Stuff the filename into the buffer */
  45.     len = fsp->name[0];
  46.     *next = '\0';
  47.     next -= len;
  48.     memcpy(next, fsp->name+1, len);
  49.     
  50.     while (dirid != fsRtParID) {
  51.         pb.d.ioNamePtr = namebuf;
  52.         pb.d.ioVRefNum = dir;
  53.         pb.d.ioFDirIndex = -1;
  54.         pb.d.ioDrDirID = dirid;
  55.         err= PBGetCatInfo((CInfoPBPtr)&pb.d, 0);
  56.         if (err != noErr)
  57.             return err;
  58.         *--next = SEP;
  59.         len = namebuf[0];
  60.         if ( len + strlen(next) >= MAXPATH )
  61.             return -1;
  62.         next -= len;
  63.         memcpy(next, (char *)namebuf+1, len);
  64.         dirid = pb.d.ioDrParID;
  65.         need_sep = 0;
  66.     }
  67.     
  68.     strcpy(retbuf, next);
  69.     if (need_sep) {
  70.         next = strchr(retbuf, '\0');
  71.         *next++ = SEP;
  72.         *next++ = '\0';
  73.     }
  74.     return 0;
  75. }
  76.